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In the previous instalment we measured capaci- 
tances and resistances. You may have wondered 
if this was all worth the effort, when accurate 
and inexpensive digital multimeters are readily 
available, but we shall see that we are able to 
take readings from a wide variety of sensors by 
measuring their resistance. 
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The best demonstration involves a 
light-dependent resistor (LDR). Fig- 
ure 1 shows a simple light-measur- 
ing circuit; Figure 2 shows how it 
might be constructed. In this case 
we are frequently interested in how 
the reading changes over time, and 
this is best shown on a graph. 


Light measurement 


In order to produce a graph on the 
screen using Visual Basic, we need 
to use a so-called PictureBox, which 
can be dragged from the form's tool- 
bar. It is very important to set the 
correct size. Visual Basic can use a 
variety of units and here we want to 
measure the size in pixels. The 
ScaleMode property should be set to 
‘3 - pixel’, and the box can be 


Elektor Electronics 2/2001 


Listing I. Resistance Plotter 


Dim yi, y2,. xt, x2, m 
Private Sub Form Load() 


i = OPENCOM(”COM2,1200,N,8,1”) 


If i= 0 Then 


i = OPENCOM(“COM1,1200,N,8,1”) 


Optionl.Value = True 
End If 


If i= 0 Then MsgBox (“COM Interface Error”) 


TXD 0 
RTS 0 
DTR 0 
Counterl = 0 
Timerl.Interval = 1000 
n= 0 
End Sub 


Private sub FormeUn load (Cancel As Integer) 


CLOSECOM 
End Sub 


Private Sub Optionl Crrek() 


i = OPENCOM(”COM1,1200,N,8,1”) 


If i = 0 Then MsgBox (“COM1 not available") 


End Sub 


Priva ce ssup ODE Onze lei (Gg) 


i = OPENCOM(“COM2,1200,N,8,1") 


If i = 0 Then MsgBox (”“COM2 not available") 


End Sub 


Private Subi Timer Timer (() 
DTR 1 
REALTIME (True) 
TIMEINITUS 


While (DSR() = 0) And (TIMEREADUS() < 900000) 


wend 

T = TIMEREADUS() 
DTR 0 

T =T * 0.932 


R = 2200 + 7800 * (T — 76300) / (294600 - 76300) 


REALTIME (False) 
I = TAER) 


Labell. Caption = Strs(R) + “~ Ohm” 


y2 = 300 - R / 100 
If n = 0 Then yl = y2 


x1 n 
n=n+5 
x2 =n 
Picturel.Line (x1, y1l)-(x2, y2) 
yl = y2 
End Sub 


dragged out to the correct size using 
the mouse. For the present example 
(plotter1.frm) a PictureBox 300 by 
500 points is required. 

We can draw in the PictureBox 
using the Line command: see List- 
ing 1 for an example. The plot is 
drawn over a period of 100 secondes, 
the x-coordinate advancing by 5 pix- 
els as each reading is taken. A 
global variable n must be specially 
declared to store the current position 
across calls to the timer procedure. 
On the y-axis resistance (R/100) is 
plotted, with a maximum value of 
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300 (30000 Q=30 KQ). Every second a 
new value is plotted in the graph in 
Figure 3 and a new line segment is 
drawn from the last point to the new 
one. The old coordinate values must 
be stored, and global variables are 
used for this purpose. 


Skin resistance 
measurements 


Another interesting ‘sensor’ is the 
human skin: a pair of bare wires can 
be wound around two fingers. The 
resistance of the skin is not constant, 
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Figure |. Measurement using a light-dependent 
resistor 
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Figure 2. Construction of the LDR circuit 
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Figure 3. Results from the LDR measurement 
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Figure 4. Amplifier for measuring skin resistance 
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Figure 5. Measuring skin resistance 


but varies according to its moisture levels. 
When people lie, they sweat: so we can build 
a lie detector by determining when the skin 
resistance falls. The problem is that skin 
resistance is typically rather higher than the 
maximum value we can measure with our cir- 
cuit: we need to use a transistor for amplifi- 
cation (Figure 4, Figure 5). 

An NPN transistor amplifies the small cur- 
rent flowing through the skin, allowing our 
simple A/D converter to measure relatively 
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Figure 6. Connecting an NTC thermistor 





Figure 7. Temperature display 
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Listing 2. Extensions for temperature measurement 


Prive cemsu Oe ime cm le hime.) 
DTR 1 
REALTIME (True) 
TIMEINITUS 


While (DSR() = 0) And (TIMEREADUS() < 1500000) 


Wend 
T = TIMEREADUS() 
T = T * 1.0000000001 


R = 2200 + 7800 * (T - 76300) / (294600 - 76300) 


REALTIME (False) 
I = TaN) 


Temp = 1 / (Log(R / 10000) / 4300 + 1 / 298) - 273 


Temp = Int(Temp * 10) / 10 


Labell.Caption = Strs(Temp) + “°C” 


DTR 0 
End Sub 


Listing 3. Conversion to the Fahrenheit scale 


Although the German physicist Gabriel Daniel Fahrenheit died in 1736, some 


people are still more comfortable working with temperatures measured in 


Fahrenheit. They need only change a couple of lines of the program, as follows: 


Temp 


32 + (Temp / 100 * 180) 
Temp = Int(Temp * 10) / 10 


Labell.Caption = Str$(Temp) + “” F” 


high resistances. The input to the 
circuit is protected by two additional 
resistors, so that the measured resis- 
tance will not be too small even if 
the wires are shorted. The reading 
obtained depends on the contact 
area of the wires and the moisture 
level of the skin. The results can be 
viewed using the resistance plotter 
program. 


Temperature 
measurement 


Temperature can also be measured 
using our resistance measuring cir- 
cuit. The circuit of Figure 6 shows 
how easy it is to connect a 10 KQ 
NTC thermistor to build a very sim- 
ple yet perfectly usable thermome- 
ter. 

The resistance characteristic of an 
NTC thermistor can be approxi- 
mated by an exponential curve. In 
the following formula, T is the 
absolute temperature in Kelvin 
(T/°C + 273), while B is a value, typ- 
ically between 2000 and 500 Kelvin, 
provided by the thermistor manufac- 
turer. In fact the value of B is not per- 
fectly constant but rises gradually 
with temperature: for this reason the 
value B25/g5 is often quoted, where 


calibration has been performed at 
25°C and 85°C. 


R(T) = rae) 


An NTC thermistor is therefore spec- 
ified to a first approximation by two 
values: B and the thermistor’s nomi- 
nal resistance Rəs. For a typical 
10 KQ NTC thermistor the value of B 
might be 4300 K. Rearranging the 
expression above and substituting 
Rə5 = 10 KQ we can derive the fol- 
lowing line of Visual Basic to calcu- 
late the value of T in Celsius: 


Temp = 1 / (Log(R / 10000) / 4300 + 
1 / 298) — 273 


The VB ‘Log’ function calculates the 
natural logarithm, often abbreviated 
to ‘In’ in mathematics textbooks. 

In the program shown in Listing 2 
we first carry out a resistance mea- 
surement and then convert the mea- 
sured value into temperature. The 
results appear to one decimal place 
as shown in Figure 7. Finally, List- 
ing 3 shows how to convert the 
reading from the Celsius scale into 
Fahrenheit. 
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